home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / docs / hyper / BibelGuide02.lha / diebibel / BibelInfo.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-02-05  |  1.3 KB  |  40 lines
  1. /* $VER: BibelInfo.rexx V0.1 */
  2. /* con: als Ausgabe */
  3. Offen=OPEN(Ausgabe,"CON:20/20/620/150/BibelInfoRexx/auto/CLOSE/wait")
  4. IF Offen = 1 THEN
  5.   DO
  6.     WRITELN(Ausgabe,"Ich bin nicht hyperaktiv,")
  7.     WRITELN(Ausgabe,"sondern interaktiv.....")
  8.     WRITELN(Ausgabe,show('p'))
  9.   END
  10. DO I=1 TO 1000 /* KLEINE SCHLEIFE */
  11. END
  12. EXIT
  13. IF ~Offen  THEN
  14. do
  15. say "Die Bibel als HyperText"
  16. say "benötigt wird ein Assign DieBibel:"
  17. say "versuche dies jetzt einzurichten..."
  18. address command
  19. 'die DieBibel: dirs'
  20. 'requestchoice frage Antwort OK NO'
  21. 'echo >t:bibel.temp "assign DieBibel: exists" NEWLINE'
  22. 'echo >>t:bibel.temp "if warn" NEWLINE'
  23. 'echo >>t:bibel.temp "echo einwarn" NEWLINE'
  24. 'echo >>t:bibel.temp "assign DieBibel: """ NEWLINE'
  25. 'echo >>t:bibel.temp "else" NEWLINE'
  26. 'echo >>t:bibel.temp "echo Keinwarn" NEWLINE'
  27. 'echo >>t:bibel.temp "assign DieBibel: """ NEWLINE'
  28. 'echo >>t:bibel.temp "endif" NEWLINE'
  29. address command
  30. 'execute t:bibel.temp'
  31. /*
  32. commandline='echo >t:bibel.temp "assign DieBibel: exists"'
  33. commandline=commandline|' echo >t:bibel.temp "if warn"'
  34. commandline=commandline|' echo >t:bibel.temp "assign DieBibel: ""'
  35. commandline=commandline|' echo >t:bibel.temp "else"'
  36. commandline=commandline|' echo >t:bibel.temp "echo Keinwarn"'
  37. commandline=commandline|' echo >t:bibel.temp "assign DieBibel: ""'
  38. commandline=commandline|' echo >t:bibel.temp "endif"'
  39. */
  40.